/*
 * Copyright (c) 1989 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
static char copyright[] = 
"Copyright (c) 1990 Regents of the University of California.\n\
All rights reserved.\n";
static char SccsId[] = "@(#)@(#)pop_xtnd.c	2.1  2.1 3/18/91";
#endif /* not lint */

#include "popper.h"
#include <stdio.h>
#include <sys/types.h>

extern xtnd_table *pop_get_subcommand();

int
pop_xtnd(p)
    POP *p;
{
    xtnd_table *x;

    do_drop(p);

    /* Convert the XTND subcommand to lower case */
    pop_lower(p->pop_subcommand);

    /* Search for the subcommand in the XTND command table */
    if ((x=pop_get_subcommand(p)) == NULL) 
	return POP_FAILURE;

    /* Call the function associated with this subcommand */
    if (x->function)
	return (*x->function)(p);

    /* Otherwise assume NOOP */
    pop_msg(p, POP_SUCCESS, NULL);
    return POP_SUCCESS;
}
